(rmail-convert-file): Narrow to exclude the Babyl header.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 979975bafa023ad95932e1a84cdbcb46f2da8a86..9ab9c86f11f3e44e94c5ed9ec0ff87b096583425 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -286,9 +286,9 @@ that file, but does not copy any new mail into the file."
          ;; If file needs conversion, convert it all,
          ;; except for the BABYL header.
          ;; (rmail-convert-to-babyl-format would delete the header.)
-;;;      (narrow-to-region (point) (point-max))
          (goto-char (point-min))
          (search-forward "\n\^_" nil t)
+         (narrow-to-region (point) (point-max))
          (rmail-convert-to-babyl-format)
          (message "Converting to Babyl format...done")))))